home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 46 / Commodore_Disc_46_19xx_-_de.d64 / die insel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  394 lines
  1. 10 print"[147]"
  2. 20 print"             *********"
  3. 30 print"             * insel *"
  4. 40 print"             *********"
  5. 50 print"      (c)by armin hennecke "
  6. 60 fori=0to5000:next
  7. 70 print"          sie sind der "
  8. 80 print"          kaiser einer "
  9. 85 print"          kleinen insel"
  10. 90 print"    viel glueck !
  11. 95 [129]i[178]0[164]2000:[130]
  12. 100 [153]"    ps.das brauchen sie auch !"
  13. 110 [129]i[178]0[164]5000:[130]
  14. 113 jk[178]14
  15. 114 bf[178]20
  16. 115 qq[178]5000
  17. 120 aa[178]4000
  18. 125 bb[178]100
  19. 130 cc[178]100
  20. 135 dd[178][181](50[172][187](1))[170]1
  21. 136 [139]aa[179]0[167] aa[178]0
  22. 140 dd[178]dd[170]10
  23. 145 ee[178][181](1000[172][187](1))[170]1
  24. 148 ee[178]ee[170]500
  25. 149 [139]cc[179][178] [171]1000000[167]1280
  26. 150 [153]"load"
  27. 151 [139]bb[179]0[167] bb[178]0
  28. 152 [139]aa[179]0[167] aa[178]0
  29. 160 [153]"              *ein+verkauf* "
  30. 170 [153]"sie haben ";aa;" t.getreide"
  31. 180 [153]"          ";bb;" h.koloniealland "
  32. 190 [153]"          ";cc;" dm"
  33. 200 [153]"1t.getreide kostet ";dd;" dm"
  34. 210 [153]"1h.land     kostet ";ee;" dm"
  35. 220 [153]" andposposandtotoandposposandtotoandposposandtotoandposposandtotoandposposandtotoandposposandtotoandpos"
  36. 225 [153]" usrfrefreusrtab(tab(usrfrefreusrtab(tab(usrfrefreusrtab(tab(usrfrefreusrtab(tab(usrfrefreusrtab(tab(usrfrefreusrtab(tab(usrfre"
  37. 230 [153]" getreide a)kaufen b)verkaufen"
  38. 240 [153]" land              d)verkaufen"
  39. 250 [153]"         e) weiter"
  40. 260 [161]f$:[139]f$[178]""[167]260
  41. 270 [139]f$[178]"a"[167]330
  42. 280 [139]f$[178]"b"[167]380
  43. 300 [139]f$[178]"d"[167]480
  44. 310 [139]f$[178]"e"[167]530
  45. 320 [139]f$[179][177]"a"[175]f$[179][177]"b"[175]f$[179][177]"d"[175]f$[179][177]"e"[167]260
  46. 330 [153]"wieviel getreide wollen sie kaufen"
  47. 340 [133]gg
  48. 360 aa[178]aa[170]gg
  49. 370 cc[178]cc[171]dd[172]gg
  50. 375 [137]149
  51. 380 [153]"wieviel getreide wollen sie verkaufen"
  52. 390 [133]hh:[139]hh[177]aa[167]hh[178]aa
  53. 410 aa[178]aa[171]hh
  54. 420 cc[178]cc[170]dd[172]hh
  55. 425 [137]149
  56. 430 [153]"wieviel land wollen sie kaufen"
  57. 440 [133]ii
  58. 450 ee[178]ee[172]ii
  59. 460 bb[178]bb[170]ii
  60. 470 cc[178]cc[171]ee
  61. 475 [137]135
  62. 480 [153]"wieviel land wollen sie verkaufen"
  63. 490 [133]jj:[139]jj[177]bb[167]jj[178]bb
  64. 510 bb[178]bb[171]jj
  65. 520 cc[178]cc[170]ee[172]jj
  66. 525 [137]149
  67. 530 [153]"load"
  68. 533 ll[178]1
  69. 534 ll[178]ll[172]qq
  70. 535 [153]"das volk braucht ";ll;" t.getreide"
  71. 540 [153]"sie haben ";aa;" t.getreide"
  72. 550 [153]"wieviel tonnen geben sie dem volk"
  73. 560 [133]kk
  74. 565 [139]kk[178]0[167] mm[178]2000
  75. 570 [139]kk[177]aa[167]550
  76. 575 aa[178]aa[171]kk
  77. 576 [139]kk[178]0[167]627
  78. 580 [139]kk[177]ll[167]620
  79. 590 [139]kk[179]ll[167]627
  80. 600 [139]kk[178]ll[167]633
  81. 610 aa[178]aa[171]kk
  82. 615 [139]kk[177]ll[167] nn[178]2000
  83. 620 nn[178][181](500[172][187](1))[170]1
  84. 621 nn[178]nn[170]100
  85. 622 mm[178][181](50[172][187](1))[170]1
  86. 623 mm[178]mm[170]10
  87. 624 oo[178][181](300[172][187](1))[170]1
  88. 625 oo[178]oo[170]50
  89. 626 [137]650
  90. 627 nn[178][181](100[172][187](1))[170]1
  91. 628 nn[178]nn[170]20
  92. 629 mm[178][181](500[172][187](1))[170]1
  93. 630 mm[178]mm[170]120
  94. 631 oo[178]0
  95. 632 [137]650
  96. 633 nn[178][181](200[172][187](1))[170]1
  97. 634 nn[178]nn[170]50
  98. 635 mm[178][181](150[172][187](1))[170]1
  99. 636 mm[178]mm[170]25
  100. 637 oo[178][181](50[172][187](1))[170]1
  101. 638 [137]650
  102. 650 [153]"load"
  103. 660 [153]"es sind ";nn;"geboren"
  104. 670 [153]"es sind ";mm;"gestorben"
  105. 680 [153]"es sind ";oo;"auf die insel  gekommen"
  106. 690 [153]"         [x] weiter"
  107. 694 nn[178]nn[170]cd
  108. 695 nn[178]nn[170]oo
  109. 696 nn[178]nn[171]mm
  110. 697 qq[178]qq[170]nn
  111. 705 [161]p$:[139]p$[178]""[167]705
  112. 710 [139]p$[178]"x"[167]760
  113. 720 [139]p$[179][177]"x"[167]705
  114. 760 [153]"load"
  115. 770 [153]"markt    a)1000 dm (kaufen)"
  116. 780 [153]"muehle   b)2000 dm (kaufen)"
  117. 790 [153]"truppen  c) 500 dm (kaufen)"
  118. 800 [153]"sie haben ";cc;" dm"
  119. 810 [153]"         [x] weiter
  120. 820 getr$:ifr$=""then820
  121. 830 ifr$="a"then880
  122. 840 ifr$="b"then930
  123. 850 ifr$="c"then980
  124. 860 ifr$="x"then1030
  125. 870 ifr$<>"a"andr$<>"b"andr$<>"c"andr$<>"x"then820
  126. 880 print"wieviel maerkte wollen sie kaufen"
  127. 890 inputss
  128. 895 ab=1000
  129. 900 ab=ab*ss
  130. 910 cc=cc-ab
  131. 915 bd=bd+ss
  132. 920 goto760
  133. 930 print"wieviel muehlen wollen sie kaufen"
  134. 940 inputtt
  135. 945 ac=2000
  136. 950 ac=ac*tt
  137. 960 cc=cc-ac
  138. 965 be=be+tt
  139. 970 goto760
  140. 980 print"wieviel truppen wollen sie kaufen"
  141. 990 inputuu
  142. 995 ad=500
  143. 1000 ad=ad*uu
  144. 1010 cc=cc-ad
  145. 1015 bf=bf+uu
  146. 1020 goto760
  147. 1030 print"[147]"
  148. 1040 print"moechten sie kolonien erobern ?"
  149. 1050 print"wenn ja dann druecke [a]"
  150. 1060 print"     [184][184]              [184][184][184]"
  151. 1070 print"[x] keinen krieg"
  152. 1080 getv$:ifv$=""then1080
  153. 1090 ifv$="a"then1470
  154. 1110 ifv$="x"then1130
  155. 1120 ifv$<>"a"andv$<>"c"then1080
  156. 1130 print"[147]"
  157. 1131 ifaa<0then aa=0
  158. 1132 ifyf<0then yf=0
  159. 1133 ifbb<0then bb=0
  160. 1140 print"            *uebersicht*"
  161. 1150 print" sie besitzen :    "
  162. 1160 print" ";aa;" t.getreide "
  163. 1170 print" ";bb;" h.koloniealland"
  164. 1180 print" ";cc;" dm         "
  165. 1190 print" ";qq;" einwohner  "
  166. 1200 print" ";bd;" maerkte    "
  167. 1210 print" ";be;" muehlen    "
  168. 1220 print" ";bf;" truppen    "
  169. 1230 print"   [x] weiter      "
  170. 1240 getw$:ifw$=""then1240
  171. 1250 ifw$="x"then1270
  172. 1260 ifw$<>"x"then1240
  173. 1270 goto1310
  174. 1280 print"[147]"
  175. 1290 print"     game over"
  176. 1300 fori=0to500000000:next
  177. 1310 xx=int(1000*rnd(1))+1
  178. 1320 xx=xx*ss
  179. 1330 yy=int(2500*rnd(1))+1
  180. 1340 yy=yy*be
  181. 1344 ml=int(3*rnd(1))+1
  182. 1345 ml=ml*bb
  183. 1346 rt=int(2*rnd(1))+1
  184. 1347 rt=rt*bb
  185. 1348 jk=int(bb*rnd(1)/3.5)
  186. 1350 print"[147]"
  187. 1360 print"sie bekommen ";xx;" dm von"
  188. 1370 print"ihren maerkten"
  189. 1380 print"sie bekommen ";yy;" dm von"
  190. 1390 print"ihren muehlen"
  191. 1404 print"und sie bekommen ";ml;" t.getreide "
  192. 1405 print"und ";jk;" t.holz "
  193. 1408 print"von ihren kolonieen  "
  194. 1409 print"    [x] weiter"
  195. 1410 xx=xx+yy
  196. 1411 yf=yf+jk
  197. 1420 cc=cc+xx
  198. 1425 aa=aa+ml
  199. 1430 getz$:ifz$=""then1430
  200. 1440 ifz$="x"then1460
  201. 1450 ifz$<>"x"then1430
  202. 1460 goto2030
  203. 1470 print"[147]"
  204. 1480 print"sie haben: ";bf;" truppen"
  205. 1490 ay=int(uu*rnd(1))+1
  206. 1500 ay=ay+int(10*rnd(1))
  207. 1510 print"ihr feind hat: ";ay;" truppen"
  208. 1520 print"der krieg kann beginnen !"
  209. 1530 fori=0to5000:next
  210. 1540 print"[147]"
  211. 1550 print""
  212. 1560 print" [216][216][216][216][216][216][216][216][216][216]                [216][216][216][216][216][216][216][216][216][216]"
  213. 1570 print" [216][216][216][216][216][216][216][216][216][216] [216]            [216] [216][216][216][216][216][216][216][216][216][216]"
  214. 1580 print" [216][216][216][216][216][216][216][216][216][216][160]               [216][216][216][216][216][216][216][216][216][216]"
  215. 1590 fori=0to1000:next
  216. 1595 print"[147]"
  217. 1600 print""
  218. 1610 print" [216][216][216][216][216][216][216][216][216][216]          [216][216][216][216][216][216][216][216][216][216]"
  219. 1620 print" [216][216][216][216][216][216][216][216][216][216] [216]      [216] [216][216][216][216][216][216][216][216][216][216]"
  220. 1630 print" [216][216][216][216][216][216][216][216][216][216]          [216][216][216][216][216][216][216][216][216][216]"
  221. 1640 fori=0to1000:next
  222. 1645 print"[147]"
  223. 1650 print""
  224. 1660 print" p      [216][216][216]*[216]@[216]^[216][216] [216][216][216]"
  225. 1670 print"  e      [216][166]+^[216][216]![219][216]*[216]@:"
  226. 1680 print"   n       [216] '[216]^[216]_[216]*"
  227. 1690 print"    g      "
  228. 1700 print"        knallllll!"
  229. 1710 fori=0to2000:next
  230. 1720 az=int(bf*rnd(1))+1
  231. 1730 bc=int(ay*rnd(1))+1
  232. 1731 bf=bf-az
  233. 1732 ay=ay-bc
  234. 1740 ifay<bfthen1770
  235. 1750 ifay>bfthen1830
  236. 1760 ifay=bfthen1890
  237. 1770 print"[147]"
  238. 1780 print" sie haben : "
  239. 1790 fori=0to2000:next
  240. 1800 print" [144] *** gewonnen *** [146]"
  241. 1805 print" und eine kolonie erobert "
  242. 1810 print" aber nur noch ";bf;" truppen"
  243. 1815 fori=0to8000:next
  244. 1820 goto1920
  245. 1830 print"[147]"
  246. 1840 print" sie haben :"
  247. 1850 fori=0to2000:next
  248. 1860 print" [144] *** verlohren *** [146]"
  249. 1870 print" und nur noch ";bf;" truppen"
  250. 1875 fori=0to8000:next
  251. 1880 goto1980
  252. 1890 print"[147]"
  253. 1900 print"    unentschieden !"
  254. 1905 fori=0to5000:next
  255. 1910 goto1130
  256. 1920 bf=bf+5
  257. 1930 aa=aa+200
  258. 1940 bb=bb+500
  259. 1950 cc=cc+5000
  260. 1960 qq=qq+300
  261. 1970 goto1130
  262. 1980 aa=aa-200
  263. 1990 bb=bb-500
  264. 2000 cc=cc-5000
  265. 2010 qq=qq-350
  266. 2020 goto1130
  267. 2030 print"[147]"
  268. 2031 rt=20
  269. 2032 rt=rt*qq
  270. 2033 ry=int(2000*rnd(1))+1
  271. 2034 ry=ry+1000
  272. 2035 ifyf<0then yf=0
  273. 2036 ifaa<0then aa=0
  274. 2040 print" sie bekommen 20 dm steuern"
  275. 2050 print" pro. einwohner"
  276. 2060 print" das sind ";rt;" dm steuern"
  277. 2070 print" und an ihre beamtenschaft "
  278. 2080 print" zahlen sie ";ry;" dm lohn "
  279. 2090 print" weiter [x]"
  280. 2091 cc=cc+rt
  281. 2092 cc=cc-ry
  282. 2100 getp$:ifp$=""then2100
  283. 2110 ifp$="x"then2130
  284. 2120 ifp$<>"x"then2100
  285. 2130 print"[147]"
  286. 2140 print"            nachrichten "
  287. 2150 po=int(15*rnd(1))+1
  288. 2160 ifpo=1then2260
  289. 2170 ifpo=2then2260
  290. 2180 ifpo=3then2260
  291. 2190 ifpo=4then2260
  292. 2200 ifpo=5then2260
  293. 2210 ifpo=6then2300
  294. 2220 ifpo=7then2370
  295. 2230 ifpo=8then2430
  296. 2240 ifpo=9then2260
  297. 2250 ifpo=10then2730
  298. 2251 ifpo=11then2840
  299. 2252 ifpo=12then2990
  300. 2253 ifpo=13then3040
  301. 2254 ifpo=14then2260
  302. 2255 ifpo=15then2260
  303. 2260 print"    heute keine  nachrichten "
  304. 2270 print"   [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  305. 2280 fori=0to5000:next
  306. 2290 goto2490
  307. 2300 print"sie finden im meer eine "
  308. 2310 print"kiste mit zwei ratten die "
  309. 2320 print"sich vermehren und dein"
  310. 2330 print"getreide verzehren ."
  311. 2340 aa=0
  312. 2350 fori=0to10000:next
  313. 2360 goto2490
  314. 2370 print"ein schiff strandet an ihrer kueste "
  315. 2380 print"das schiff hat 20 t.getreide,"
  316. 2390 print"             9000 dm         "
  317. 2400 print"        und     7 t.holz geladen"
  318. 2401 cc=cc+9000
  319. 2402 aa=aa+20
  320. 2403 yf=yf+7
  321. 2410 fori=0to10000:next
  322. 2420 goto2490
  323. 2430 print"sie fanden einen schatz "
  324. 2440 print"auf ihrer insel mit "
  325. 2450 print"2000 dm inhalt !"
  326. 2460 cc=cc+2000
  327. 2470 fori=0to10000:next
  328. 2480 goto2490
  329. 2490 print"[147]"
  330. 2500 print" wollen sie aus ihrem "
  331. 2510 print" holz  "
  332. 2530 print" a= haeuser bauen  [b.1t.]"
  333. 2540 print" sie haben ";yf;" t.holz"
  334. 2545 print" [x] weiter
  335. 2550 [161]i$:[139]i$[178]""[167]2550
  336. 2560 [139]i$[178]"a"[167]2600
  337. 2580 [139]i$[178]"x"[167]135
  338. 2590 [139]i$[179][177]"a"[175]i$[179][177]"b"[175]i$[179][177]"x"[167]2550
  339. 2600 [153]"load"
  340. 2610 [153]" sie haben ";yf;" t.holz "
  341. 2615 [153]" sie brauchen fuer ein haus "
  342. 2616 [153]" 1.t.holz "
  343. 2620 [153]" wieviele wollen sie machen ?"
  344. 2630 [133]" : ";yh
  345. 2640 [139]yh[177]yf[167]2600
  346. 2650 yf[178]yf[171]yh
  347. 2660 [153]"load"
  348. 2670 [153]"durch die haeuser hat "
  349. 2680 [153]"sich das volk vermehrt !"
  350. 2690 hi[178]2[172]yh
  351. 2700 qq[178]qq[170]hi
  352. 2710 [129]i[178]0[164]8000:[130]
  353. 2720 [137]135
  354. 2730 [153]" feuerwait  "
  355. 2740 [153]" ein feuer brannte baeume und haeuser "
  356. 2750 [153]" nieder, menschen starben "
  357. 2760 [153]" die haelfte der insel ist verbrannt "
  358. 2770 [129]i[178]0[164]10000:[130]
  359. 2780 qq[178][181](qq[173]2[170].5)
  360. 2800 be[178][181](be[173]2)
  361. 2810 yf[178][181](yf[173]2)
  362. 2830 [137]2490
  363. 2840 [153]" stopkriegwait
  364. 2850 print" ein 3 j.krieg ist ausgebrochen[146]"
  365. 2860 print" 1 "
  366. 2870 fori=0to2000:next
  367. 2880 print" 2 "
  368. 2890 fori=0to2000:next
  369. 2900 print" 3 "
  370. 2910 fori=0to9000:next
  371. 2920 be=0
  372. 2930 qq=2534
  373. 2940 bf=0
  374. 2945 bd=0
  375. 2950 aa=0
  376. 2955 ifyf<21then2981
  377. 2960 yf=21
  378. 2980 goto2490
  379. 2981 yf=0
  380. 2982 goto2490
  381. 2990 print" ein indianer schenkt ihnen"
  382. 3000 print" 1000[146] h.koloniealland"
  383. 3010 fori=0to10000:next
  384. 3020 bb=bb+1000
  385. 3030 goto2490
  386. 3040 print" eine expedition "
  387. 3050 print" findet neues koloniealland "
  388. 3060 ep=int(500*rnd(1))+1
  389. 3070 ep=ep+500
  390. 3080 print" ";ep;"[146] h."
  391. 3090 bb=bb+ep
  392. 3100 fori=0to10000:next
  393. 3110 goto2490
  394.